100 REM********************************
105 REM** DEMO-PROGRAMM ZU '!SCREEN' **
110 REM**                            **
115 REM** 28.6.85  STEFAN WAGNER     **
120 REM**          HOEHENSTR.102     **
125 REM**      5090LEVERKUSEN  3     **
130 REM**                            **
135 REM********************************
140 :
145 !(0,24,0,39),3,235
150 FORI=1TO24
155 :
160 :!(I,I,0,39-I ),2,0
165 : FORK=1TO200-8*I
170 : NEXT K
175 :
180 NEXT I
185 :
190 PRINTCHR$(147)
195 :
200 FOR F= 0 TO 3 STEP3
205 :FOR V=20 TO 0 STEP-5
210 : FOR I= 2 TO 8
215 :  FOR J=10 TO 12+I
220 :  C=RND(0)*255
225 :  !(2,I,10,J),F,C
230 :   FORX=1TOV
235 :   NEXT X
240 :  NEXT J
245 : NEXT I
250 :NEXT V
255 NEXT F
260 :
265 PRINTCHR$(19)"  ABSCHALTEN MIT STOP"
270 :
275 !(0,24,0,39),0,0
280 FORX=1TO150:NEXT:GOTO275